home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / util / rexx / fwfooter.lha / Footer.arexx next >
Text File  |  1995-09-13  |  2KB  |  103 lines
  1. /* ------------------------------------------ */
  2. /* Final Writer Arexx Macro - Manual Footnote */
  3. /* Written by Alf Inge Wang 12.sept.1995      */
  4. /* (C) Wang Computer Software                 */
  5. /* If you have some question, suggestions etc */
  6. /* mail me: alfw@idt.unit.no                  */
  7. /* ------------------------------------------ */
  8.  
  9. Options Results
  10.  
  11. RequestText '"Enter the footer number" "Number" "1"'
  12.     FNumb=Result
  13.  
  14. RequestText '"Enter the number of extra footnote lines" "Number" "0"'
  15.     Lines=Result
  16.  
  17. ShiftDown
  18. CtrlDown
  19. Cursor Left
  20. Copy    /* Copy the highligted word */
  21. ShiftUp
  22. CtrlUp
  23. Cursor Left
  24. Cursor Right
  25. Position SuperScript
  26. IF FNumb==1 then type "1"
  27. IF FNumb==2 then type "2"
  28. IF FNumb==3 then type "3"
  29. IF FNumb==4 then type "4"
  30. IF FNumb==5 then type "5"
  31. IF FNumb==6 then type "6"
  32. IF FNumb==7 then type "7"
  33. IF FNumb==8 then type "8"
  34. IF FNumb==9 then type "9"
  35. IF FNumb==10 then type "10"
  36.  
  37. Position Normal
  38. CtrlDown
  39. Cursor Right
  40. CtrlUp
  41. AltUp
  42. /* Footnote 1 */
  43. IF FNumb==1 then NewParagraph
  44. IF FNumb==1 then NewParagraph
  45. IF FNumb==1 then Fontsize 9
  46. IF FNumb==1 then Style Underline
  47. IF FNumb==1 then Type "                                                       "
  48. IF FNumb==1 then style normal
  49.  
  50. /* Footnote 2 */
  51. If FNumb==2 then AltDown
  52. IF FNumb==2 then CtrlDown
  53. IF FNumb==2 then Cursor Right
  54. IF FNumb==2 then AltUp
  55. IF FNumb==2 then CtrlUp
  56.  
  57. /* Footnote >2 */
  58.  
  59. IF FNumb>2 then  Do i=3 to FNumb
  60.     Cursor Down
  61.     End
  62.  
  63. IF Lines>0 then Do i=0 to Lines
  64.     Cursor Down
  65.     End
  66.  
  67. IF FNumb>2 then AltDown
  68. IF FNumb>2 then CtrlDown
  69. IF FNumb>2 then Cursor Right
  70. IF FNumb>2 then AltUp
  71. IF FNumb>2 then CtrlUp
  72.  
  73.  
  74. FontSize 9     
  75. Style Normal
  76. NewParagraph
  77. Position SuperScript
  78. IF FNumb=1 then type "1"
  79. IF FNumb=2 then type "2"
  80. IF FNumb=3 then type "3"
  81. IF FNumb=4 then type "4"
  82. IF FNumb=5 then type "5"
  83. IF FNumb=6 then type "6"
  84. IF FNumb=7 then type "7"
  85. IF FNumb=8 then type "8"
  86. IF FNumb=9 then type "9"
  87. IF FNumb=10 then type "10"
  88.  
  89. Position Normal
  90. type " "
  91. Paste
  92. ShiftDown
  93. CtrlDown
  94. AltDown
  95. Cursor Left
  96. FontSize 9            /* The font of the footer      */
  97. Font Helvetica        /* The size of the footer font */
  98. ShiftUp
  99. Cursor Right
  100. CtrlUp
  101. AltUp
  102. type " "
  103.